From: Glenn Morris <rgm@gnu.org>
Date: Tue, 24 Jan 2012 08:22:50 +0000 (-0800)
Subject: Fix rcs and sccs create-tag commands.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1124
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4be27f64a2473977d92b6fcfcc8db9691c9a1c44;p=emacs.git

Fix rcs and sccs create-tag commands.

* lisp/vc/vc-rcs.el (vc-rcs-create-tag):
* lisp/vc/vc-sccs.el (vc-sccs-create-tag):
Fix argument spec to be what vc-create-tag expects.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5fbe8454d7..2700db07406 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-24  Glenn Morris  <rgm@gnu.org>
+
+	* vc/vc-rcs.el (vc-rcs-create-tag):
+	* vc/vc-sccs.el (vc-sccs-create-tag):
+	Fix argument spec to be what vc-create-tag expects.  (Bug#10515)
+
 2012-01-23  Mike Lamb  <mrlamb@gmail.com>  (tiny change)
 
 	* eshell/esh-util.el (eshell-read-hosts-file):
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el
index f9248d5a954..f2122b60ce1 100644
--- a/lisp/vc/vc-rcs.el
+++ b/lisp/vc/vc-rcs.el
@@ -809,9 +809,9 @@ systime, or nil if there is none.  Also, reposition point."
 ;;; Tag system
 ;;;
 
-(defun vc-rcs-create-tag (backend dir name branchp)
+(defun vc-rcs-create-tag (dir name branchp)
   (when branchp
-    (error "RCS backend %s does not support module branches" backend))
+    (error "RCS backend does not support module branches"))
   (let ((result (vc-tag-precondition dir)))
     (if (stringp result)
 	(error "File %s is not up-to-date" result)
diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el
index 26e7b020b46..31637f5490e 100644
--- a/lisp/vc/vc-sccs.el
+++ b/lisp/vc/vc-sccs.el
@@ -359,9 +359,9 @@ revert all subfiles."
 ;;; our own set of name-to-revision mappings.
 ;;;
 
-(defun vc-sccs-create-tag (backend dir name branchp)
+(defun vc-sccs-create-tag (dir name branchp)
   (when branchp
-    (error "SCCS backend %s does not support module branches" backend))
+    (error "SCCS backend does not support module branches"))
   (let ((result (vc-tag-precondition dir)))
     (if (stringp result)
 	(error "File %s is not up-to-date" result)